The CICA Windows Explosion!

home *** CD-ROM | disk | FTP | other *** search

/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 1.iso / desktop / att32all.zip / ATTSET.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1994-11-16 | 32KB | 587 lines

Settings All the Time Settings zwwwgxxxv wwwwgggg wwwwgvt wwwwgHXXG zzwwvt{ vfqqvfzvwG jgwvO jjgvvO jzzwwO wwv||dDD vvwgwwwwwwwwww gwwwvwww{{{{{w vvvvwwww HHGgvww{y vwwwwwqwww Ggww{{q{{w |vwwqq Form15E Check3D1 SSCheck S&outhern Hemisphere Check3D1 SSCheck User && &GDI Command2 M&ore... Command2 S&et Time... Command4 For tabs Command4 For tabs Check3D1 SSCheck &Print Monitor OrderPanel SSPanel MS Sans Serif OrderPanel SSPanel MS Sans Serif OrderPanel SSPanel MS Sans Serif OrderPanel SSPanel MS Sans Serif OrderPanel SSPanel MS Sans Serif Command2 &Chimes... Check3D1 SSCheck &Largest B-lock FullScreen SSCheck &W-i-d-e SpacesScr Check3D1 SSCheck Dis&k Space Option3D1 SSOption &5 - Center Check3D1 SSCheck + Men&u Panel3D1 SSPanel DriveList Option3D1 SSOption &3 - Bottom right Option3D1 SSOption &4 - Bottom left Option3D1 SSOption &2 - Upper right Option3D1 SSOption &1 - Upper left MS Sans Serif Command3 Cancel Command1 Check3D1 SSCheck Sun &and Moon and Tree Frame3D1 SSFrame &Hotkeys Text1 Text1 Text1 Label1 + Menu: [Alt]+ Label1 Rotate: [Alt]+[Ctrl]+ Label1 Toggle: [Alt]+[Ctrl]+ CMDialog1 CommonDialog Sound files (*.wav)|*.wav wav%p Command2 Fo&nt... Check3D1 SSCheck &Resources Check3D1 SSCheck &Memory / Check3D1 SSCheck &Time TimeList Check3D1 SSCheck &Date DateList StayOnTop SSCheck Sta&y On Top Shape1 Picture800 Picture640 wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwpww wwpww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwxwwpww wwpww wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwxwwpww wwpwwx wwpwww wwwwwwwwwwwwwwwwwwwwwwww xwwwpwwwx wwwpwwww xwwwwpwwwwx wwwwpwwwww xwwwwwpwwwwwx wwwwwpwwwwww wwwwww wwwwww xwwwwwwpwwwwwwx wwwwwwpwwwwwww xwwwwwwwpwwwwwwwx wwwwwwwpwwwwwwwxwwwwwwwwwwwwwwwwwwwwww wwwwwwwpwwwwwwwx wwwwwwwpwwwwwwwx wwwwwwwpwwwwwwwxwwwwwwwwwwwwwwwwwwwwww wwwwwwwpwwwwwwwx wwwwwwwpwwwwwwwx wwwwwwwpwwwwwwwx wwwwwwwwwx wwwwwwwpwwwwwwwx wwwwwwwwwx wwwwwwwpwwwwwwwx wwwwwwwpwwwwwwwx wwwwwwwwwx wwwwwwwpwwwwwwwx wwwwwwwwwx wwwwwwwpwwwwwwwx wwwwwwwpwwwwwwwx wwwwwwwwwx wwwwwwwpwwwwwwwx wwwwwwwwwx wwwwwwwpwwwwwwwx wwwwwwwpwwwwwwwx wwwwwwwpwwwwwwwx wwwwwwwpwwwwwwwx wwwwwwwpwwwwwwwx wwwwwwwpwwwwwwwx wwwwwwwpwwwwwwwx wwwwwwwwwwwwwwwww wwwwwwwpwwwwwwwx wwwwwwwpwwwwwwwx wwwwwwwpwwwwwwww wwwwwwwwpwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwwxxxxxxxxxxxxxxxxxxxxxwwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwwx wwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwww wwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwwwwwwwx wwwwwwwwwwwwwwwwwwwwwwpwwwwwwwwwwww wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxwwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxwwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx xxxxxxxxxxxxxxxxxxxxxx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwww wwwwwwww wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwww wwwwwwww wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwx wwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwx wwwwwwww wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwww wwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwx wwwwwwww wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwww wwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwww wwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwpwww wwwwwwwww wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwpwwwx wwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwww wwwwwwww wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwww wwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwwwwwwwwwwww wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwwx wwwwwwwwwwwpwwwwwwwwwwww wwwwwwwwwwwpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwpwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwp Label2 Spac&ing FileMenu &File FileExit E&xit FileSep FileAbout &About All the Time... Check3D1_Click) Index Value Moved LastTime Check3D1 Enabled FontChangedNotYetSized LastJob< gCheck3D1# Chime_Click gChime PlayOnceOnly Command2 Hourly} Cancelling LastHourp Command1_Click SaveSettingsToIni@ gSettingsVisible Command2_ClickE CMDialog1 FontNamed AllTheTime FontSize/ FontBold FontItalics FontUnderline FontStrikethru Color ForeColor Flags2 CF_SCREENFONTSf CF_USESTYLE CF_EFFECTS CF_FORCEFONTEXIST CancelError DialogTitleD Action SetOrderColors OFN_HIDEREADONLYx gCMDialog1Filename Filename_ SetTimeForm SavedtGiveaway gtGiveawayb SavedtDelay/ gtDelayT AdvSettings Command3_Click LoadGlobalsFromIniZ Command4_GotFocus Command3 DateList_Change gDateList- DateList9 DateList_Click} DriveList_Change gDriveList DriveListZ DriveList_Click FileAbout_Click Form3 FileExit_Click FinalProcessing Form_Load xDPIM yDPIi Picture640 Picture800s TimeList: gTimeList` LoadSettingsFromGlobals" PositionATT Form_LostFocusp Form_QueryUnload Cancel? UnloadMode FullScreen_Click' gFullScreen PosLeft SpacesScr OldWid Hourly_Click gHourly lpReturnedString MyGetProfileString DecodeQuotes StayOnTop gStayOnTop Chime FullScreen Text1! gText1 gSpacesScr Option3D1 gOption3D1 OrderPanel gOrderPanelTag SetUpVirtualKeys Option3D1_Click gPositioning OrderPanel_DragDrop Source ControlL SourceNum_ TempPicTag TempPicCap Caption SpacesScr_Change StayOnTop_Click3 SetStayOnTopq Text1_Change3 Text1_GotFocus SelStart SelLength> TimeList_Change TimeList_Click( GTimerRunning GDeltaRunning StopWatch Picture MoonSun GraphicCell Delta gSaveGaugesOn gGaugesOn gSavedGaugesOn TurnGaugesOn TurnGaugesOff About LastDay OldDateH Chimes ThereIsSound The computer was originally done in MacDraw using gray patterns. In fact, that's Doyle's computer which, at the time, was hot stuff.= But then it was in PowerPoint as clip art and I did a screen capture and pasted it into studio 32 and reduced it 50%, which made all of the grays blend together in its little anti-aliasing way.d So then I went in with the supposed 16-colors-made-for-the-PCl and substituted patterns made with those grays.a And then I went and copied it and pasted it into Giffer and saved it as= a GIF file.w Then I opened it in PaintShop on the PC and fixed the boo-boos.e Check3D1_Click Call SetSize Chime_Click gChime = Value PlayOnceOnly = True Moved = False= LastTime& = 0= Command2(1).Enabled = Valuey Hourly.Enabled = Value If (Not Cancelling) And Value Then LastHour = -1l End If Command1_Click Command2_Click If Index = 1 Then CMDialog1.CancelError = True On Error Resume Next CMDialog1.DialogTitle = "Choose Sound File" CMDialog1.Flags = OFN_HIDEREADONLY CMDialog1.Action = 1 If Err = 0 Thenn gCMDialog1Filename = CMDialog1.Filename Call Chime_Click(True)M End If End If Command3_Click Command4_GotFocus DateList_Change Check3D1(0).Value = True DateList_Click DriveList_Change DriveList_Click FileAbout_Click FileExit_Click DeleteMenus Programu Form_Load Picture800.Refresh Picture640.Refresh For I% = 2 To 5e OrderPanel(I%).Width = OrderPanel(I% - 1).Widthe OrderPanel(I%).Left = OrderPanel(I% - 1).Left + OrderPanel(I% - 1).Width Next I%n General Date Long Date Medium Date Short Date m/d/yy dddd, mmmm d dddd, mmmm d yyyy dddd m/d/yy d mmmm, yyyy Today is Week DateList.ListIndex = 8 General Date Long Time Medium Time Short Time h:nna/p h:nnam/pm h:nnam/pm, It's minutes past o'clock. The time is h:nn am/pm seconds. minutes past the hour of ham/pm minutes and seconds past the hour of ham/pm TimeList.ListIndex = 6 All hard drives Windows drive DriveList.ListIndex = 1 Drives% = 2i Drive(1) = "C" Drive(2) = "D" Form_LostFocus Form_QueryUnload Cancel = True Unload MeT FullScreen_Click AllTheTime.Width = Screen.Width Hourly_Click LoadSettingsFromGlobals AllTheTime UpdateDelay AllTheTime Giveaway Chime.Value = gChime Hourly.Value = gHourly A% = MyGetProfileString("AllTheTime", "FontName", "XX", lpReturnedString$, 100)s On Error Resume Next If Left$(lpReturnedString$, 2) <> "XX" Then AllTheTime.FontName = lpReturnedString$n On Error GoTo 0r On Error Resume Next A% = MyGetProfileString("AllTheTime", "FontSize", "XX", lpReturnedString$, 100)i If Left$(lpReturnedString$, 2) <> "XX" Then AllTheTime.FontSize = Val(lpReturnedString)p On Error GoTo 0r On Error Resume Next A% = MyGetProfileString("AllTheTime", "FontBold", "XX", lpReturnedString$, 100)d If Left$(lpReturnedString$, 2) <> "XX" Then AllTheTime.FontBold = Val(lpReturnedString)p On Error GoTo 0r On Error Resume Next A% = MyGetProfileString("AllTheTime", "FontItalic", "XX", lpReturnedString$, 100)t If Left$(lpReturnedString$, 2) <> "XX" Then AllTheTime.FontItalic = Val(lpReturnedString) On Error GoTo 0r On Error Resume Next A% = MyGetProfileString("AllTheTime", "FontUnderline", "XX", lpReturnedString$, 100) If Left$(lpReturnedString$, 2) <> "XX" Then AllTheTime.FontUnderline = Val(lpReturnedString) On Error GoTo 0r On Error Resume Next A% = MyGetProfileString("AllTheTime", "FontStrikethru", "XX", lpReturnedString$, 100)S If Left$(lpReturnedString$, 2) <> "XX" Then AllTheTime.FontStrikethru = Val(lpReturnedString) On Error GoTo 0r On Error Resume Next A% = MyGetProfileString("AllTheTime", "ForeColor", "8388608", lpReturnedString$, 100)d AllTheTime.ForeColor = Val(lpReturnedString) A% = MyGetProfileString("AllTheTime", "PosLeft", "0", lpReturnedString$, 100)g PosLeft = Val(lpReturnedString$) A% = MyGetProfileString("AllTheTime", "PosTop", "0", lpReturnedString$, 100) PosTop = Val(lpReturnedString$)T If (PosLeft + AllTheTime.Width > Screen.Width) And Not Cancelling Then PosLeft = Screen.Width - AllTheTime.Width If (PosTop + AllTheTime.Height > Screen.Height) And Not Cancelling Then PosTop = Screen.Height - AllTheTime.Height AllTheTime.Option3D1(I% - 1).Value = gOption3D1(I% - 1)n OrderPicture(I%).Picture = PicClip1.GraphicCell(T% - 1) Option3D1_Click OrderPanel_DragDrop If the source is to the left of the target then( shift controls from source+1 to target one to the left If the source is to the right of the target then shift controls from target to source one to the rightt TempPic.Picture = Source.Picture TempPic.BackColor = Source.BackColor SpacesScr_Change StayOnTop_Click Text1_Change Text1_GotFocus TimeList_Change Check3D1(1).Value = True TimeList_Click